8bitfiles.net/archives/archives.tar/archives/commodore-users-of-norman/CUON_##_(05-1985).d64/agent blotto.40

Commodore BASIC | 2019-04-13 | 16KB | 455 lines

1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`
5 [153]"hhhhhhh`
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
150 UZ=1:UV%=PEEK(UT):GOTO300
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,14
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
300 PRINT"[147]":POKEUT,UU%:IFUW=0THENPOKEUY,12:POKEUX,6
305 PRINT"                M E N U"
310 PRINT"    --------------------------------"
315 PRINT"       1.   BEGIN AGENT BLOTTO"
320 PRINT"       2.   STUDENT INSTRUCTIONS"
325 PRINT"       3.   TEACHER INSTRUCTIONS"
330 PRINT"       4.   QUIT"
335 PRINT"    --------------------------------"
340 PRINT"       PRESS A NUMBER KEY (1-4) ";
345 UL=1:US$="1234"
347 GOSUB35:US$=""
350 ONVAL(UR$)GOSUB1000,400,500,390
355 GOTO300
370 IFUZ=1THENSYSUP%:GOTO155
375 RETURN
390 SYSUE:PRINT"[154][147]":IFUW=0THENPOKEUY,6:POKEUX,14:SYSUU,14
395 CLR:END
400 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,11:POKEUX,12
405 UT$=" [193]GENT [194]LOTTO ":UH=1:UP=0:UG$="[211]TUDENT [201]NST":GOSUB850
410 PRINT" [211]PECIAL [193]GENT [194]LOTTO NEEDS  [217][207][213][210] [146] HELP"
412 PRINT" IN THE FIGHT AGAINST EVIL! [193]S YOU GO"
414 PRINT" THROUGH THE PROGRAM HE WILL TELL YOU"
416 PRINT" WHAT TO DO. [211]O READ CAREFULLY!"
418 PRINT" [206][207][212][197][146]:   Y [146] MEANS YES[146]."
420 PRINT"         N [146] MEANS NO[146]."
422 PRINT"              [199][207][207][196][160][204][213][195][203]!"
424 GOSUB835:UH=1:GOSUB850
430 PRINT"      [201]F AT ANY TIME YOU WISH TO"
432 PRINT" RETURN TO THE [205][197][206][213] PRESS 'H' [210][197][212][213][210][206]."
485 GOSUB835
490 IFUZ=1THENSYSUP%:GOTO155
495 RETURN
500 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,2:POKEUX,10
501 UT$=" [193]GENT [194]LOTTO ":UH=1:UP=0:UG$="[212]EACHER [201]NST":GOSUB850
502 PRINT"     [212]O THE BEST OF OUR KNOWLEDGE,"
503 PRINT"     THIS PROGRAM IS IN THE PUBLIC"
504 PRINT"     DOMAIN.  [201]F THIS IS NOT TRUE,"
505 PRINT"     PLEASE CONTACT:"
506 PRINT"      [195][207][205][205][207][196][207][210][197][160][194][213][211][201][206][197][211][211][160][205][193][195][200][201][206][197][211]"
507 PRINT"          3370 [208]HARMACY [193]VE.
508 [153]"          ATNGINCOURT, (null)NTARIO"
509 [153]"          LENANADA, (null)1(null) 2(null)4"
510 [153]"          [phone]"
511 UH[178]1:[141]835:[141]850
512 [153]"      (null)ROGRAM (null)AME: ATNGENT PEEKLOTTO","      (null)RITTEN BY  : (null). (null)ANAREK"
513 [153]"LEN. (null)ARACENICMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD(null). (null)CRIMGEOUR"
514 [153]"      (null)EVISED BY  : STR$. STR$UMAS":[153][166]20)"ATN. (null)UNSCHE"
515 [153]"      (null)HIS PROGRAM WILL RUN ON ANY"
516 [153]"         PEEKATN(null)RIGHT$LENCLOSE2.0 (null)VAL(null) LENOMPUTER
517 PRINT"         [194][193][211][201][195] 4.0 [208][197][212][160][195]OMPUTER
518 [153]"         8032 LENPEEK(null) LENOMPUTER
519 PRINT"         [195]OMMODORE 64 [195]OMPUTER
520 [141]835:UH[178]1:[141]850
522 [153]" ATNCHR$VAL(null)(null)CLOSEPEEK(null)(null)(null)(null)(null) IS A PROGRAM DESIGNED AS"
524 [153]" A CODE BREAKING GAME. RIGHT$T INCLUDES ALL"
526 [153]" OPERATIONS USING BOTH POSITIVE AND"
528 [153]" NEGATIVE NUMBERS. (null)HE STUDENT SOLVES A"
530 [153]" PROBLEM AND HIS/HER ANSWER REPRESENTS"
532 [153]" A LETTER (EG. A=1,B=2,ETC.) TO SOLVE"
534 [153]" THE SECRET MESSAGE."
650 [141] 835:UH[178]1:[153]"LOAD"
651 [151] UT,UL%:[141]850
655 [153]" (null)ROGRAM LENLASSIFICATION: CHR$AME - STR$RILL
660 PRINT" [199]RADE [204]EVEL: [202]UNIOR - [201]NTERMEDIATE"
670 PRINT" [207]BJECTIVES: [196]RILL ON SIMPLE MATH":PRINT"             QUESTIONS."
690 GOSUB835:PRINT"[147]";
691 IF UZ=1THENSYSUP%:GOTO155
692 RETURN
700 PRINTUC$"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032
705 [153]"      LOAD THE 'CBM 4032' PROGRAM":[128]
800 [153]"LOAD";:[151]UT,UU%:[139]UW[178]0[167][151]UY,1:[151]UX,14
801 [129]I[178]1[164]38:[153]" WAIT";:[130]
802 [129]I[178]1[164]22:[153]"CMD WAIT";:[130]
803 [129]I[178]1[164]37:[153]"CMDCMD WAIT";:[130]
804 [129]I[178]1[164]22:[153]"ONCMD WAIT";:[130]
805 [153]"STEP  WAIT
806 PRINT" [146]   [146][169]
807 [153]" WAIT  TAB((null)WAIT O M M O D O R E
808 PRINT"[223]  [146]
809 [153]"EDUCATIONAL
810 PRINT"SOFTWARE
811 [153]"1983
812 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]"UC$:UI=0
813 GETUI$:IFUI$<>" "THENUI=UI+1:IFUI<250THEN813
814 GOTO300
835 POKEUN,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
840 GETUI$:IFUI$<>" "THEN840
845 RETURN
850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
855 PRINT" --------------------------------------"
860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS   H <RETURN>"
865 UH=0:PRINT"":RETURN
875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
900 UX$="H":US=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UB=1024:UD=1084:UE=1105
901 UT=59468:UU%=12:UL%=14:UP%=1158:UN=158:POKE50003,0:UW=PEEK(50003):UF=PEEK(53)
902 IFUW=0THENUS=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
903 IFUW=0THENUT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
904 UC$=CHR$(155):UV=1214:IFUW=0THENUF=196:UV=2238
905 UD$="":UP$="                                      "
909 RETURN
910 GOSUB900:PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
915 IFPEEK(US+40)<>96THEN700
916 DIMQ$(28),N(28)
920 IF(FRE(0)-(SGN(FRE(0))<0)*65536)>500THEN935
925 PRINTUC$"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
930 PRINT"MEMORY TO RUN THIS PROGRAM !":SYSUE:END
935 PRINT"[147]"UC$:IFUW=0THEN965
940 IFUF=60ORUF=108ORUF=124THEN950
945 POKE52,0:POKE53,UF-4:CLR:GOSUB900
950 IFUW=160THENPOKE1103,88:POKE1104,228:POKE1107,85:POKE1111,228:GOTO965
955 IFUW<>1THENPRINT"[147]THIS PGM WILL NOT WORK ON THIS MACHINE!":SYSUE:END
960 POKE1103,49:POKE1104,230:POKE1107,46:POKE1111,230:GOTO965
965 SYSUD
970 GOSUB800:GOTO300
1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0
1001 PRINT"[147]"UC$;:RESTORE:IFUW=0THENPOKEUY,6:POKEUX,14
1010 UG$="[157][157][157]"
1020 REM     AGENT BLOTTO
1040 REM     BY MELANIE KANAREK
1050 REM        CLELIA SARACENI
1060 REM        PAT SCRIMGEOUR
1080 REM     FOR YORK COUNTY BOARD OF ED.
1100 REM     JULY 20, 1981
1110 REM
1120 POKE UT,UL%
1130 REMA=0
1160 REMIFA=0THENDIMQ$(28),N(28)
1165 REMA=1
1170 CQ$="[145]                     "+CHR$(13)+"[145][145][145]"
1175 UT$=" [193]GENT [194]LOTTO":UG$="":UP=0:UH=1:GOSUB850
1180 PRINT" [211]PECIAL [193]GENT [194]LOTTO NEEDS YOUR HELP"
1190 PRINT" IN SOLVING A DIFFICULT CASE. [200]IS ARCH
1200 [153]" ENEMY, (null)R. (null) (THE UNKNOWN), HAS STOLEN"
1210 [153]" THE KEY TO THE SECRET CODE. RIGHT$T IS"
1220 [153]" VITAL THAT ATNGENT PEEKLOTTO FINDS OUT"
1230 [153]" WHERE (null)R. (null) HAS HIDDEN THE DECODER"
1240 [153]" BEFORE (null)R. (null) INTERCEPTS ANY MESSAGES."
1250 [153]" ATNGENT PEEKLOTTO HAS RECEIVED A MESSAGE"
1260 [153]" TELLING HIM WHERE THE DECODER IS BUT"
1270 [153]" THISCLOSEMESSAGE IS WRITTEN IN CODE TOO."
1272 UP[178]1:UH[178]1:[141]835:[141]850
1274 [153]" LEFT$ERE IS THE MESSAGE:"
1280 [153]"   (null)HE DECODER CAN BE FOUND IN THE"
1290 [153]"   SAFE AT (null)R.(TOTOTOTOTO)'S OFFICE. (null)HE"
1300 [153]"   PASSWORD TO THE SAFE IS (TOTOTOTO)."
1320 UP[178]2:UH[178]1:[141]835:[141]850
1330 [153]" (null)O HELP ATNGENT PEEKLOTTO FIND THE NAME OF"
1340 [153]" THE MAN AND THE PASSWORD TO THE SAFE,"
1350 [153]" YOU MUST FIND THE ANSWERS TO THE"
1360 [153]" FOLLOWING QUESTIONS. VALACH ANSWER"
1370 [153]" STANDS FOR A LETTER IN THE ALPHABET,"
1380 [153]" E.G.(A=1, B=2, C=3, ..., Y=25, Z=26),"
1390 [153]" AND WILL SPELL THE MAN'S NAME AND A"
1400 [153]" PASSWORD THAT IS NEEDED TO UNLOCK"
1410 [153]" THE SAFE ONCE THE MAN'S IDENTITY"
1420 [153]" HAS BEEN FOUND."
1430 UP[178]3:[141]835:[141]850
1450 [153]" LEFT$ERE ARE THE QUESTIONS FOR THE MAN'S"
1455 [153]" NAME:"
1456 [140]:[129]K[178]1[164]5
1470 [135]Q$
1480 [153]"        "Q$" =   CMDCMD";
1490 US$[178]"-0123456789H":UL[178]2:[141] 35:NI(K)[178]([197](UR$))
1500 [139]NI(K)[179]1[176]NI(K)[177]26[167][153]CQ$:[137]1480
1505 [139] [201](UR$,1)[178]"H"[167][153]CQ$:[137]1480
1510 [130]
1520 [153]" ATNRE YOU SURE THAT ALL YOUR ANSWERS"
1525 [153]" WERE RIGHT? ";:US$[178]"YNH":UL[178]1:[141]35
1530 [139]UR$[178]"Y"[176]UR$[178]"(null)"[167]1545
1540 [137]1430
1545 UP[178]4:[141]835:[141]850
1550 [153]"    ATNCCORDING TO YOUR ANSWERS, THE"
1560 [153]" MAN'S NAME IS ";
1570 NM$[178][199](NI(1)[170]192):[129]K[178]2[164]5:NM$[178]NM$[170][199](NI(K)[170]64):[130]:[153]NM$"."
1580 [153]"    RIGHT$F YOU DECIDE THAT YOUR ANSWER IS"
1590 [153]" CORRECT, THE POLICE WILL START A "
1600 [153]" MANHUNT FOR (null)R. "NM$"."
1610 [153]" RIGHT$S IT CORRECT? ";:US$[178]"YNH":UL[178]1:[141]35
1620 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167]1430
1630 [139]NM$[178]"(null)ASTY"[167]1685
1635 UP[178]5:UH[178]1:[141]835:[141]850
1640 [153]"   (null)HE POLICE WERE NOT ABLE TO FIND"
1650 [153]" (null)R. "NM$".  (null)HEY HAVE ASKED YOU TO"
1660 [153]" TRY SOLVING THE CODE AGAIN."
1680 [137]1430
1685 UP[178]5:UH[178]1:[141]835:[141]850
1690 [153]" (null)HE POLICE HAVE LOCATED (null)R. (null)ASTY AND"
1700 [153]" ARE STANDING BY UNTIL YOU HAVE SOLVED"
1710 [153]" THE CODE FOR THE PASSWORD."
1715 UP[178]6:[141]835:[141]850
1720 [153]" LEFT$ERE ARE THE QUESTIONS FOR THE"
1730 [153]" PASSWORD TO THE SAFE:"
1740 [140]:[129]K[178]1[164]5:[135]X$:[130]
1750 [129]K[178]1[164]4
1760 [135]Q$
1770 [153]"            "Q$" =   CMDCMD";
1780 US$[178]"-.0123456789H":UL[178]2:[141] 35:NI(K)[178][181]([197](UR$))
1790 [139]NI(K)[179]1[176]NI(K)[177]26[167][153]CQ$:[137]1770
1795 [139] [201](UR$,1)[178]"H"[167][153]CQ$:[137]1770
1800 [130]
1810 [153]"   (null)OUR ANSWERS INDICATE THAT THE"
1820 [153]" PASSWORD IS ";
1830 CB$[178]"":[129]K[178]1[164]4:CB$[178]CB$[170][199](NI(K)[170]192):[130]:[153]CB$"."
1840 [153]" ATNRE YOU READY TO REPORT YOUR FINDINGS"
1850 [153]" TO THE POLICE? ";:US$[178]"YNH":UL[178]1:[141]35
1860 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167][137]1715
1870 [139]CB$[178]"(null)(null)VAL(null)"[167]1935
1875 UP[178]7:UH[178]1:[141]835:[141]850
1880 [153]"    (null)ESSAGE FROM ATNGENT PEEKLOTTO:"
1890 [153]"   ";[199](34)"(null)OUR PASSWORD DIDN'T WORK. (null)RY"
1900 [153]"    SOLVING THE CODE AGAIN."[199](34)
1930 [137]1715
1935 UP[178]7:[141]835:[141]850
1940 [153]" CHR$OOD WORK!  (null)HANKS TO YOU, ATNGENT"
1950 [153]" PEEKLOTTO HAS FOUND THE DECODER. LEFT$E IS SO"
1960 [153]" IMPRESSED BY YOUR SKILL THAT HE WOULD"
1970 [153]" LIKE YOU TO HELP HIM ON HIS NEXT"
1980 [153]" ASSIGNMENT.  STR$O YOU ACCEPT THE"
1990 [153]" CHALLENGE? ";:US$[178]"YNH":UL[178]1:[141]35
2000 [139]UR$[179][177]"N"[175]UR$[179][177]"(null)"[167]2045
2005 UP[178]8:UH[178]1:[141]835:[141]850
2010 [153]" (null)H, THAT'S TOO BAD.  (null)ERHAPS YOU CAN"
2020 [153]" COME BACK SOME OTHER TIME TO HELP"
2030 [153]" ATNGENT PEEKLOTTO."
2040 [137]3770
2045 UP[178]8:UH[178]1:[141]835:[141]850
2050 [153]" CHR$OOD!  ATNGENT PEEKLOTTO THINKS YOU AND"
2060 [153]" HE WILL MAKE A GOOD TEAM.  LEFT$ERE IS THE"
2070 [153]" THE LATEST ASSIGNMENT RECEIVED FROM"
2080 [153]" HEADQUARTERS: RIGHT$T SEEMS THAT (null)R. (null) (THE"
2090 [153]" UNKNOWN) DOES NOT KNOW THAT PEEKLOTTO HAS"
2100 [153]" RECEIVED THE DECODER.  LEFT$E IS STILL"
2110 [153]" SENDING CODED MESSAGES TO HIS GANG"
2120 [153]" ABOUT THEIR NEXT CRIME."
2125 UP[178]9:UH[178]1:[141]835:[141]850
2130 [153]" (null)HIS MEANS THAT ATNGENT PEEKLOTTO CAN FIND"
2140 [153]" OUT WHERE (null)R. (null) WILL STRIKE NEXT."
2150 [153]" RIGHT$F YOU CAN DECODE THE MESSAGES FOR"
2160 [153]" ATNGENT PEEKLOTTO, HE WILL BE ABLE TO CATCH"
2170 [153]" THE CRIMINALS RED-HANDED."
2190 UP[178]10:UH[178]1:[141]835:[141]850
2200 [131]"4 + 7 + 5 - 2"
2210 [131]"      17 - 16"
2220 [131]"  25 - 10 + 4"
2230 [131]"   5 + 10 + 5"
2240 [131]"  15 - 5 + 15"
2250 [131]" 3 X 5"
2260 [131]" 4 X 4"
2270 [131]"15 / 3"
2280 [131]" 2 X 7"
2290 [153]" LEFT$ERE IS THE MESSAGE:"
2300 [153]"   TOTOTOTO (null)ATNRIGHT$STR$--TOTOTOTOTOTOTO TOTOTOTOTOTOTOTO.  (null)VALVAL(null)"
2310 [153]"   ATN(null) TOTOTO'(null) TOTOTOTOTOTO."
2320 [129]K[178]1[164]28:[135]Q$(K):[130]
2330 [153]" ATNGENT PEEKLOTTO THINKS THE MOST HELPFUL"
2340 [153]" WORD WILL BE THE FOURTH ONE, SINCE"
2350 [153]" HE CAN TELL WHO OWNS THE PLACE WHERE"
2360 [153]" THE GANG IS GOING TO MEET."
2380 UP[178]11:[141]835:[141]850
2390 [153]" LEFT$ERE ARE THE CLUES FOR THE 4TH WORD:"
2400 [129]K[178]1[164]3
2410 [153]"            "Q$(K)" =   CMDCMD";
2420 US$[178]"-.0123456789H":UL[178]2:[141]35:N(K)[178][197](UR$)
2430 [139]N(K)[179]1[176]N(K)[177]26[167][153]CQ$:[137]2410
2435 [139] [201](UR$,1)[178]"H"[167][153]CQ$:[137]2410
2440 [130]
2450 JO$[178]"":[129]K[178]1[164]3:JO$[178]JO$[170][199](N(K)[170]192):[130]
2460 [153]"   ATNRE YOU SURE YOUR ANSWER, "JO$","
2470 [153]"   IS RIGHT? ";:US$[178]"YNH":UL[178]1:[141]35
2480 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167]2380
2490 [139]JO$[178]"MID$(null)VAL"[167]2535
2495 UP[178]12:UH[178]1:[141]835:[141]850
2500 [153]" LENOMPUTER RECORDS DO NOT INCLUDE ANYONE"
2510 [153]" BY THE NAME OF "JO$".  (null)RY AGAIN."
2530 [137]2380
2535 UP[178]12:UH[178]1:[141]835:[141]850
2540 [153]" ATNHA!  (null)O THEY'RE MEETING AT MID$OE'S."
2550 [153]" LEFT$MMM, MID$OE'S WHAT, RIGHT$ WONDER.  (null)OU'D"
2560 [153]" BETTER DECODE THE LAST WORD NEXT."
2580 UP[178]13:[141]835:[141]850
2590 [153]" LEFT$ERE ARE THE CLUES:"
2600 [129]K[178]4[164]9
2610 [153]"     "Q$(K)" =   CMDCMD";:US$[178]"-.0123456789H":UL[178]2:[141]35
2615 N(K)[178][181]([197](UR$))
2620 [139]N(K)[179]1[176]N(K)[177]26[167][153]CQ$:[137]2610
2625 [139] [201](UR$,1)[178]"H"[167][153]CQ$:[137]2610
2630 [130]
2640 GR$[178]"":[129]K[178]4[164]9:GR$[178]GR$[170][199](N(K)[170]192):[130]
2650 [153]" RIGHT$S "GR$" YOUR DEFINITE ANSWER? ";
2655 US$[178]"YNH":UL[178]1:[141]35
2660 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167]2580
2670 [139]GR$[178]"CHR$ATN(null)ATNCHR$VAL"[167]2715
2675 UP[178]14:UH[178]1:[141]835:[141]850
2680 [153]" PEEKUT MID$OE DOESN'T OWN A "GR$".  (null)EE IF"
2690 [153]" YOU GET A DIFFERENT ANSWER IF YOU"
2700 [153]" DECODE IT AGAIN."
2710 [137]2580
2715 UP[178]14:UH[178]1:[141]835:[141]850
2720 [153]" TOTOTOTO (null)ATNRIGHT$STR$--TOTOTOTOTOTOTO TOTOTOTOTOTOTOTOTO.  (null)VALVAL(null) ATN(null)"
2730 [153]" MID$(null)VAL'(null) CHR$ATN(null)ATNCHR$VAL."
2740 [153]" (null)ELL, RIGHT$ GUESS WE SHOULD SEE WHAT"
2750 [153]" (null)R. (null) IS GOING TO RAID.  CHR$O TO IT!"
2770 UP[178]15:[141]835:[141]850
2780 [153]" LENLUES FOR FIRST WORD:"
2790 [129]K[178]10[164]13
2800 [153]"       "Q$(K)" =   CMDCMD";:US$[178]"-.0123456789H":UL[178]2:[141]35
2805 N(K)[178][181]([197](UR$))
2810 [139]N(K)[179]1[176]N(K)[177]26[167][153]CQ$:[137]2800
2815 [139] [201](UR$,1)[178]"H"[167][153]CQ$:[137]2800
2820 [130]
2830 BK$[178]"":[129]K[178]10[164]13:BK$[178]BK$[170][199](N(K)[170]192):[130]
2840 [153]" STR$O YOU THINK THEY ARE GOING TO RAID"
2850 [153]" THE "BK$"? ";:US$[178]"YNH":UL[178]1:[141]35
2860 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167][153]CQ$:[137]2770
2870 [139]BK$[178]"PEEKATN(null)(null)"[167]2915
2880 [153]" RIGHT$ DON'T THINK THEY ARE GOING TO RAID"
2890 [153]" THE "BK$".  (null)RY AGAIN."
2910 [137]2770
2915 UP[178]16:UH[178]1:[141]835:[141]850
2920 [153]" (null)OW IT'S TIME TO SOLVE THE OTHER TWO"
2930 [153]" WORDS.  (null)ET'S TRY THE THIRD."
2935 UP[178]17:[141]835:[141]850
2940 [153]" LEFT$ERE ARE THE QUESTIONS:"
2950 [129]K[178]14[164]20
2960 [153]"       "Q$(K)" =   CMDCMD";:US$[178]"-.0123456789H":UL[178]2:[141]35
2970 N(K)[178][181]([197](UR$))
2980 [139]N(K)[179]1[176]N(K)[177]26[167][153]QU$:[137]2960
2985 [139] [201](UR$,1)[178]"H"[167][153]CQ$:[137]2960
2990 [130]
3000 TU$[178]"":[129]K[178]14[164]20:TU$[178]TU$[170][199](N(K)[170]192):[130]
3010 [153]" STR$O YOU THINK "TU$" IS THE RIGHT"
3020 [153]" WORD? ";:US$[178]"YNH":UL[178]1:[141]35
3030 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167]2935
3040 [139]TU$[178]"(null)(null)VAL(null)STR$ATN(null)"[167]3095
3045 UP[178]17:UH[178]1:[141]835:[141]850
3050 [153]" "TU$" DOESN'T MAKE SENSE.  (null)OLVE IT"
3060 [153]" AGAIN, PLEASE."
3090 [137]2935
3095 UP[178]17:UH[178]1:[141]835:[141]850
3100 [153]" CHR$REAT!  (null)E'VE ALMOST GOT THE ENTIRE"
3105 [153]" MESSAGE:"
3110 [153]"   PEEKATN(null)(null) (null)ATNRIGHT$STR$--(null)(null)VAL(null)STR$ATN(null) TOTOTOTOTOTOTOTO.  (null)VALVAL(null)"
3120 [153]"   ATN(null) MID$(null)VAL'(null) CHR$ATN(null)ATNCHR$VAL."
3125 UP[178]18:[141]835:[141]850
3130 [153]" LEFT$ERE'S THE LAST WORD:"
3140 [129]K[178]21[164]28
3150 [153]"        "Q$(K)" =   CMDCMD";
3160 US$[178]"-.0123456789H":UL[178]2:[141] 35:N(K)[178][181]([197](UR$))
3170 [139]N(K)[179]1[176]N(K)[177]26[167][153]CQ$:[137]3150
3175 [139] [201](UR$,1)[178]"H"[167][153]CQ$:[137]3150
3180 [130]
3190 MN$[178]"":[129]K[178]21[164]28:MN$[178]MN$[170][199](N(K)[170]192):[130]
3210 [153]" STR$OES PEEKATN(null)(null) (null)ATNRIGHT$STR$--(null)(null)VAL(null)STR$ATN(null) "MN$" MAKE"
3220 [153]" ANY SENSE TO YOU? ";:US$[178]"YNH":UL[178]1:[141]35
3230 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167]3125
3240 [139]MN$[178]"(null)RIGHT$STR$(null)RIGHT$CHR$LEFT$(null)"[167]3285
3250 UP[178]19:UH[178]1:[141]835:[141]850
3255 [153]"          (null)HAT COULDN'T BE IT."
3260 [153]"           (null)LEASE TRY AGAIN."
3280 [137]3125
3285 UP[178]19:UH[178]1:[141]835:[141]850
3290 [153]" LENONGRATULATIONS AGAIN!  ATNGENT PEEKLOTTO"
3300 [153]" CAUGHT (null)R. (null) & GANG JUST AS THEY WERE"
3310 [153]" PREPARING TO BLOW UP THE DOOR TO THE"
3320 [153]" BANK SAFE.  PEEKLOTTO EVEN DISCOVERED"
3330 [153]" (null)R. (null)'S TRUE IDENTITY--BUT YOU WILL"
3340 [153]" HAVE TO FIND OUT FOR YOURSELF."
3360 [129]K[178]1[164]9:[135]Q$(K):[130]
3370 UP[178]20:[141]835:[141]850
3380 [153]" (null)HE CLUES:"
3390 [129]K[178]1[164]9
3400 [153]"         "Q$(K)" =   CMDCMD";
3410 US$[178]"-.0123456789H":UL[178]2:[141] 35:N(K)[178][181]([197](UR$))
3420 [139]N(K)[179]1[176]N(K)[177]26[167][153]CQ$:[137]3400
3425 [139] [201](UR$,1)[178]"H"[167][153]CQ$:[137]3400
3430 [130]
3440 SM$[178]"":[129]K[178]1[164]9:SM$[178]SM$[170][199](N(K)[170]192):[130]
3445 SM$[178][200](SM$,3)[170]" "[170][202](SM$,4)
3450 [153]" STR$O YOU THINK (null)R. (null) IS "SM$"? ";:US$[178]"YNH":UL[178]1:[141] 35
3460 [139]UR$[179][177]"Y"[175]UR$[179][177]"(null)"[167]3370
3470 [139]SM$[178]"(null)VAL(null) (null)(null)(null)LEFT$(null)(null)"[167]3515
3475 UP[178]UP[170]1:[141]835:[141]850
3480 [153]"          RIGHT$T ISN'T.  (null)RY AGAIN."
3510 [137]3370
3515 UP[178]20:UH[178]1:[141]835:[141]850
3520 [153]" (null)HAT'S RIGHT!  (null)R. (null) IS (null)EX (null)UTHOR!"
3530 [153]" (null)ITH YOUR HELP, ATNGENT PEEKLOTTO AND"
3540 [153]" THE (null)ELONVILLE POLICE FORCE HAVE"
3550 [153]" COMPLETELY ELIMINATED CRIME FROM THE"
3560 [153]" STREETS OF THE CITY.  ATNGENT PEEKLOTTO IS"
3570 [153]" MOVING ON TO JOIN THE (null)LEN(null)(null).  (null)AYBE"
3580 [153]" SOMETIME IN THE FUTURE YOU WILL MEET"
3590 [153]" AGAIN."
3595 UP[178]21:UH[178]1:[141]835:[141]850
3600 [153]"   CHR$OODBYE FROM ATNGENT PEEKLOTTO AND"
3610 [153]"   (null)ELONVILLE POLICE HEADQUARTERS!"
3630 UP[178]22:UH[178]1:[141]835:[141]850
3640 [153]" RIGHT$ AM NOW GOING TO SHOW YOU A SPECIAL"
3650 [153]" CODE NUMBER. (null)HIS IS YOUR ":[153]"        AUTHORIZATION NUMBER"
3660 [153]" FOR THIS CASE.  RIGHT$T IS TOP SECRETWAIT,"
3670 [153]" AND MUST ONLY BE TOLD TO YOUR TEACHER."
3680 [153]" (null)AKE SURE THERE IS NO ONE STANDING"
3690 [153]" BEHIND YOU, THEN PRESS THE (null)(null)ATNLENVAL BAR."
3730 [135]RS$:[129]A[178]4[164]1[169][171]1:RS$[178]RS$[170][199]([198]([202](RS$,A,1))[171]128):[130]
3740 RS$[178][201](RS$,4)
3750 UP[178]22:UH[178]1:[141]835:[141]850
3755 [153]"LENODE: 8921"
3770 [141]835
3800 [142]
3810 [131]"  5 X 2","  3 X 5","27 - 22"
3820 [131]"   32 - 25","   72 / 72","     9 X 2","    -7 + 8"
3825 [131]"  -15 + 22","-153 + 158"
3830 [131]"     5 + -3","      7 / 7","-7 + 30 - 9","     99 / 9"
3840 [131]"7 + 3 + 6 + 4","6 + 3 + 9 + 3","      -7 + 12","  25 - 10 + 4"
3850 [131]"        2 X 2","        1 X 1","        5 X 5"
3860 [131]"       19 - 6","        3 X 3","      17 - 13","4 + 2 + 4 + 4"
3870 [131]"    1 + 5 + 3","       12 - 5","       40 / 5","        4 X 5"
3880 [131]"  (4 X 5) - 8","        5 X 1","  (3 X 6) + 6"," (13 - 9) + 8"
3890 [131]"  3 X (3 + 4)","  (5 X 3) + 5","(90 / 10) - 1"," (25 / 5) X 3"
3900 [131]" 10 + 19 - 11",">=POSFRE"